home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0011.PRG < prev    next >
Text File  |  1988-06-18  |  2KB  |  81 lines
  1. NOTE ML0011 - GET NEW CODES FIELD AND CHECK FOR OK    9/19/84
  2. @ 19,0 SAY 'ENTER CODE DATA:'
  3. @ 20,0 GET VAR
  4. READ
  5. CLEAR GETS
  6. STORE R='A'    TO VX
  7. IF @(DELIM,VAR)=0 .AND. @('"',VAR)=0
  8.     STORE TRIM(VAR)    TO R
  9.     IF VX
  10.         STORE N-1    TO HN
  11.         STORE V    TO N
  12.         STORE V+1    TO V
  13.         STORE STR(V,1+INT(V/10) ) TO VC
  14.         STORE CC+LEN(R)+1    TO XX
  15.     ELSE
  16.         STORE CC+LEN(R)-L&VC    TO XX
  17.         ENDIF
  18.     IF XX <=MAX
  19.         STORE R    TO CD&VC
  20.         RELEASE R
  21.         IF .NOT.VX
  22.             STORE CC-L&VC-1    TO CC
  23.             STORE STR(V,1+INT(V/10) ) TO R
  24.             @ OFSET+LI&R-1, M&R
  25.             ENDIF
  26.         STORE LEN(CD&VC)    TO L&VC
  27.         STORE CC+L&VC+1    TO CC
  28.         IF N>0
  29.             STORE STR(N,1+INT(N/10) ) TO VC
  30.             STORE M&VC    TO M
  31.             STORE LI&VC -1    TO L
  32.             STORE N-1    TO N,HN
  33.         ELSE
  34.             STORE 0    TO L,M,N
  35.             ENDIF
  36.         DO ML0015
  37.         IF VX
  38.             STORE V-1    TO N
  39.         ELSE
  40.             STORE HN    TO N
  41.             ENDIF
  42.     ELSE
  43.         IF VX
  44.             STORE V-1    TO V
  45.             STORE HN    TO N
  46.             @ 19,0 SAY 'ADDING THIS CODE FIELD CAUSED TOTAL OF ALL CODE FIELDS TO EXCEED MAXIMUM LENGTH.  '
  47.         ELSE
  48.             STORE N-1    TO N
  49.             @ 19,0 SAY 'CHANGES TO THIS CODE FIELD CAUSED TOTAL OF ALL CODES TO EXCEED MAXIMUM LENGTH.    '
  50.             ENDIF
  51.         SET COLON OFF
  52.         SET BELL OFF
  53.         @ 22,1 SAY '    '
  54.         STORE ' '    TO R
  55.         @ 22,2 GET R PICTURE '!'
  56.         READ
  57.         @ 22,1 SAY 'wait'
  58.         ENDIF
  59. ELSE
  60.     @ 19,0 SAY 'CODE DATA CONTAINS DELIMITER CHAR. '+DELIM+' OR " NO UPDATE. Press any key to continue'
  61.     SET COLON OFF
  62.     SET BELL OFF
  63.     @ 22,1 SAY '    '
  64.     STORE ' '    TO R
  65.     @ 22,2 GET R PICTURE '!'
  66.     READ
  67.     @ 22,1 SAY 'wait'
  68.     ENDIF
  69. @ 19,0
  70. @ 20,0
  71. IF V>0.AND. .NOT.VI
  72.     STORE CC-1    TO CC
  73.     ENDIF
  74. STORE V>0    TO VI
  75. RELEASE VX,XX
  76. RETURN
  77. IF
  78. STORE V>0    TO VI
  79. RELEASE VX,XX
  80. RETURN
  81.